home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / UPCASE7.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  817b  |  26 lines
  1. ;******************************************************************
  2. ;*                           UPCASE7.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. .DATA
  9.   EXTRN DosError:Word;
  10. .CODE
  11.   Public StrUpper
  12.   StrUpper Proc Far Str:Dword;
  13.              PUSH DS
  14.              LDS DX,Str
  15.              MOV AX,6522H
  16.              INT 21H
  17.              MOV DX,DS
  18.              POP DS
  19.              JC @@Error
  20.              XOR AX,Ax
  21. @@Error:     MOV DOSError,AX
  22.              MOV AX,Word Ptr Str[0]
  23.              RET
  24.             endp
  25. end
  26.